home *** CD-ROM | disk | FTP | other *** search
/ 1st Multimedia Mac Shareware / Multimedia Shareware CD-ROM - BetaCorp.iso / StackToolsƒ / XFCNƒ / StripIt / Source Code / HyperXCmd.p next >
Encoding:
Text File  |  1987-12-21  |  1.4 KB  |  69 lines  |  [TEXT/PJMM]
  1. UNIT HyperXCmd;
  2.  
  3. {    HyperXCmd.p  Definition file for HyperCard XCMDs and XFCNs in Pascal.}
  4. {    By Dan Winkler.  DO NOT call the author!  Contact Apple Developer }
  5. {    Support on AppleLink "MacDTS" or on MCI "MacTech".}
  6. {}
  7. {    ©Apple Computer, Inc. 1987}
  8. {    All Rights Reserved.}
  9. {}
  10.  
  11. INTERFACE
  12.  
  13.     CONST
  14.  
  15.   { result codes }
  16.         xresSucc = 0;
  17.         xresFail = 1;
  18.         xresNotImp = 2;
  19.  
  20.   { request codes }
  21.         xreqSendCardMessage = 1;
  22.         xreqEvalExpr = 2;
  23.         xreqStringLength = 3;
  24.         xreqStringMatch = 4;
  25.         xreqSendHCMessage = 5;
  26.         xreqZeroBytes = 6;
  27.         xreqPasToZero = 7;
  28.         xreqZeroToPas = 8;
  29.         xreqStrToLong = 9;
  30.         xreqStrToNum = 10;
  31.         xreqStrToBool = 11;
  32.         xreqStrToExt = 12;
  33.         xreqLongToStr = 13;
  34.         xreqNumToStr = 14;
  35.         xreqNumToHex = 15;
  36.         xreqBoolToStr = 16;
  37.         xreqExtToStr = 17;
  38.         xreqGetGlobal = 18;
  39.         xreqSetGlobal = 19;
  40.         xreqGetFieldByName = 20;
  41.         xreqGetFieldByNum = 21;
  42.         xreqGetFieldByID = 22;
  43.         xreqSetFieldByName = 23;
  44.         xreqSetFieldByNum = 24;
  45.         xreqSetFieldByID = 25;
  46.         xreqStringEqual = 26;
  47.         xreqReturnToPas = 27;
  48.         xreqScanToReturn = 28;
  49.         xreqScanToZero = 39;    { was suppose to be 29.  Oops! }
  50.  
  51.     TYPE
  52.  
  53.         XCmdPtr = ^XCmdBlock;
  54.         XCmdBlock = RECORD
  55.                 paramCount : INTEGER;
  56.                 params : ARRAY[1..16] OF Handle;
  57.                 returnValue : Handle;
  58.                 passFlag : BOOLEAN;
  59.  
  60.                 entryPoint : ProcPtr;    { to call back to HyperCard }
  61.                 request : INTEGER;
  62.                 result : INTEGER;
  63.                 inArgs : ARRAY[1..8] OF LongInt;
  64.                 outArgs : ARRAY[1..4] OF LongInt;
  65.             END;
  66.  
  67. IMPLEMENTATION
  68.  
  69. END.